home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / orbit / initgrap.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-12-05  |  4.2 KB  |  147 lines
  1. VERSION 2.00
  2. Begin Form initgraph 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Graph Set Up"
  6.    ClientHeight    =   3150
  7.    ClientLeft      =   1500
  8.    ClientTop       =   2310
  9.    ClientWidth     =   3960
  10.    Height          =   3840
  11.    Left            =   1440
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   3150
  16.    ScaleWidth      =   3960
  17.    Top             =   1680
  18.    Width           =   4080
  19.    Begin HScrollBar hgraph 
  20.       Height          =   255
  21.       LargeChange     =   100
  22.       Left            =   960
  23.       Max             =   32500
  24.       Min             =   1
  25.       TabIndex        =   2
  26.       Top             =   2760
  27.       Value           =   100
  28.       Width           =   2655
  29.    End
  30.    Begin SSPanel SSPanel2 
  31.       AutoSize        =   3  'AutoSize Child To Panel
  32.       BevelInner      =   1  'Inset
  33.       BevelWidth      =   2
  34.       ForeColor       =   &H00000000&
  35.       Height          =   1575
  36.       Left            =   120
  37.       TabIndex        =   6
  38.       Top             =   960
  39.       Width           =   735
  40.       Begin CommandButton Command1 
  41.          Caption         =   "O.K."
  42.          Height          =   1365
  43.          Left            =   105
  44.          TabIndex        =   7
  45.          Top             =   105
  46.          Width           =   525
  47.       End
  48.    End
  49.    Begin VScrollBar vgraph 
  50.       Height          =   2295
  51.       LargeChange     =   100
  52.       Left            =   3600
  53.       Max             =   32500
  54.       Min             =   1
  55.       TabIndex        =   1
  56.       Top             =   480
  57.       Value           =   100
  58.       Width           =   255
  59.    End
  60.    Begin PictureBox graph 
  61.       AutoRedraw      =   -1  'True
  62.       BackColor       =   &H00FFFFFF&
  63.       Height          =   2295
  64.       Left            =   960
  65.       ScaleHeight     =   2265
  66.       ScaleWidth      =   2625
  67.       TabIndex        =   0
  68.       Top             =   480
  69.       Width           =   2655
  70.    End
  71.    Begin SSPanel SSPanel1 
  72.       AutoSize        =   3  'AutoSize Child To Panel
  73.       BevelInner      =   1  'Inset
  74.       BevelWidth      =   2
  75.       ForeColor       =   &H00000000&
  76.       Height          =   735
  77.       Left            =   120
  78.       TabIndex        =   3
  79.       Top             =   120
  80.       Width           =   735
  81.       Begin PictureBox Picture2 
  82.          Height          =   525
  83.          Left            =   105
  84.          Picture         =   INITGRAP.FRX:0000
  85.          ScaleHeight     =   495
  86.          ScaleWidth      =   495
  87.          TabIndex        =   4
  88.          Top             =   105
  89.          Width           =   525
  90.       End
  91.    End
  92.    Begin Label xs 
  93.       AutoSize        =   -1  'True
  94.       BackColor       =   &H00C0C0C0&
  95.       Height          =   195
  96.       Left            =   120
  97.       TabIndex        =   9
  98.       Top             =   2760
  99.       Width           =   75
  100.    End
  101.    Begin Label ys 
  102.       AutoSize        =   -1  'True
  103.       BackColor       =   &H00C0C0C0&
  104.       Height          =   195
  105.       Left            =   2640
  106.       TabIndex        =   8
  107.       Top             =   120
  108.       Width           =   75
  109.    End
  110.    Begin Label Label1 
  111.       AutoSize        =   -1  'True
  112.       BackColor       =   &H00C0C0C0&
  113.       Caption         =   "Scale in Meters"
  114.       Height          =   195
  115.       Left            =   960
  116.       TabIndex        =   5
  117.       Top             =   120
  118.       Width           =   1335
  119.    End
  120.    Begin Menu grd 
  121.       Caption         =   "&Grid"
  122.       Begin Menu set 
  123.          Caption         =   "&Settings"
  124.       End
  125.    End
  126. Sub Command1_Click ()
  127.     initgraph.Hide
  128.     Unload initgraph
  129. End Sub
  130. Sub Form_Load ()
  131.     graph.scalewidth = planet.graph.scalewidth
  132.     graph.scaleheight = planet.graph.scaleheight
  133.     xs.caption = Str$(planet.graph.scalewidth)
  134.     ys.caption = Str$(planet.graph.scaleheight)
  135. End Sub
  136. Sub hgraph_Change ()
  137.      xs.caption = Str$(hgraph.value)
  138.      planet.graph.scalewidth = hgraph.value
  139. End Sub
  140. Sub set_Click ()
  141.     gridset.Show 1
  142. End Sub
  143. Sub vgraph_Change ()
  144.     ys.caption = Str$(vgraph.value)
  145.     planet.graph.scaleheight = vgraph.value
  146. End Sub
  147.